home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / sprite magic (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  44 lines
  1. 90 REM: SPRITE MAGIC- GAZETTE 8/84
  2. 100 POKE53272,23
  3. 110 PRINT"[147]       [211] [208] [210] [201] [212] [197]   [205] [193] [199] [201] [195]
  4. 120 [139]A[178]0[167]A[178]1:[147]" SPTMGCOBJ",8,1
  5. 130 [129]K[178]1[164]1000:[130]
  6. 140 [153]"RIGHT$NSTRUCTIONS:
  7. 150 PRINT"   1. [195][204][210]/[200][207][205][197] TO HOME CURSOR.
  8. 160 [153]"   2. (null)LEFT$RIGHT$ASC(null)-LEN(null)(null)/LEFT$(null)(null)VAL TO CLEAR GRID.
  9. 170 PRINT"   3. [195]URSOR KEYS OR JOYSTICK
  10. 175 [153]"      TO MOVE CURSOR ON GRID.
  11. 180 PRINT"   4. [211]PACE BAR OR FIRE BUTTON
  12. 185 [153]"      TO SET OR CLEAR POINTS.
  13. 190 PRINT"   5. +/- TO CHANGE PAGES (SPRITES).
  14. 200 [153]"   6. (null)EYS 1-4 TO SELECT DRAWING COLOR.
  15. 210 PRINT"   7. [211]HIFT-KEYS 1-4 CHANGE COLORS.
  16. 220 [153]"   8. PEEKACK ARROW (_) SETS SYMMETRY MODE.
  17. 230 PRINT"      ***[200]IT ANY KEY TO CONTINUE***
  18. 240 [161]A$:[139]A$[178]""[167]240
  19. 250 [153]"
  20. 260 PRINT"   [194]: [195]YCLE THROUGH BACKGROUND COLORS.
  21. 270 [153]"   ASC: ASCLIP SPRITE OVER.
  22. 280 PRINT"   [202]: [205]OVE SPRITE WITH JOYSTICK.
  23. 290 [153]"   (null): (null)OAD SPRITE FROM DISK OR TAPE.
  24. 300 PRINT"   [211]: [211]AVE SPRITE(S) TO DISK OR TAPE.
  25. 310 [153]"   (null): (null)IRROR SPRITE; LEFT TO RIGHT.
  26. 320 PRINT"   [214]: [211]ET CURSOR SPEED 1-9.
  27. 330 [153]"   (null): (null)OGGLE (null) EXPANSION.
  28. 340 PRINT"   [217]: [212]OGGLE [217] EXPANSION.
  29. 350 [153]"      ***LEFT$IT ANY KEY TO CONTINUE***
  30. 360 GETB$:IFB$=""THEN360
  31. 370 PRINT"
  32. 380 [153]"   F1: (null)HIFT RIGHT.
  33. 390 PRINT"   F2: [211]HIFT LEFT.
  34. 400 [153]"   F3: (null)HIFT DOWN.
  35. 410 PRINT"   F4: [211]HIFT UP.
  36. 420 [153]"   F5: (null)ULTICOLOR MODE.
  37. 430 PRINT"   F6: [206]ORMAL MODE.
  38. 440 [153]"   F7: (null)TORE SPRITE TO BUFFER.
  39. 450 PRINT"   F8: [210]ECALL SPRITE FROM BUFFER.
  40. 460 [153]"   LEN(null)(null)(null)-STR$: LENREATE DATA STATEMENTS."
  41. 470 [153]"        ***LEFT$IT ANY KEY TO BEGIN***
  42. 480 GETC$:IFC$=""THEN480
  43. 490 POKE53272,21:SYS49152
  44.